home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 10 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  441b  |  11 lines
  1. 10 PRINTCHR$(147)       :REM BILDSCHIRM LOESCHEN
  2. 20 POKE 2040,13         :REM DATEN SPRITE 0 AUS BLOCK 13
  3. 30 FOR I=0 TO 62:POKE 832+I,129:NEXT:REM SPRITEDATEN EINTRAGEN
  4. 40 V=53248              :REM STARTADRESSE DES VIDEOCHIP
  5. 50 POKE V+21,1          :REM SPRITE 0 EINSCHALTEN
  6. 60 POKE V+39,1          :REM SPRITE 0 FARBE GEBEN
  7. 70 POKE V+1,100         :REM SPRITE 0 Y-POSITION
  8. 80 FOR J=0 TO 347       :REM X-POSITIONEN SPRITE 0
  9. 90 HX=INT(J/256):LX=J-256*HX
  10. 100 POKE V,LX:POKE V+16,HX:NEXT
  11.